#!/usr/bin/perl -w

$r = <STDIN>;
if ($r < 0){
    print "0\n";
}else{
    $c = 2 * 3.141592654 * $r;
    print $c."\n";
}
